home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE Outlook Express 6.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Outlook Express\Appearance"
  5. "NAME"="Message Attachment Preview"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.10"
  8. "TEXT 1"="Enable slide show of attachments"
  9. "TEXT 2"="Disable slide show of attachments"
  10. "TEXT 3"="Disable preview of attachments"
  11. "DESCRIPTION 1"="These options allow you to control how OE will display attachments."
  12. "DESCRIPTION 2"=""
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 2"="tip from "Jeffrey Stevens" <jstevens@stny.rr.com>""
  17.  
  18.  
  19. sValPath=""
  20.  
  21. 'user to find OE user id...
  22. sP2="HKCU\Identities\Last User ID"
  23. sP1="HKCU\Software\Microsoft\Outlook Express\"
  24.  
  25. sSS="Automatically Inline Images"
  26.  
  27. 'sPath="HKCU\Software\Microsoft\Outlook Express\"
  28. 'sNOS="NoSplash"
  29. 'sHOT="Disable Hotmail"
  30. 'sPath2="HKCU\Software\Microsoft\Internet Mail and News\"
  31. 'sCOL="ColorCycle"
  32. 'sV4="HKLM\SOFTWARE\Microsoft\Outlook Express\No Modify Accts" 'DW (1 = enable restriction)
  33.  
  34. Sub Plugin_Initialize 
  35.  'OK, let's have a look if we are running IE5...
  36.  s=RegReadValue(sP2)
  37.  if IsEmpty(s)=false then
  38.     'OK - we have a value - check if we can find OE
  39.     sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  40.     If RegPathExists(sValPath) then
  41.        'OE5 !
  42.        sValPath=sValPath '& sValue
  43.     else
  44.        sValPath=sP1 '& sValue
  45.     end if 
  46.  else
  47.     sValPath=sP1 '& sValue
  48.  end if
  49.  
  50.  
  51.  i=RegReadValue(sValPath & sSS)
  52.  if i=2 then
  53.     Call SetUIElement(1,True)
  54.  end if
  55.  
  56.  if i=1 then
  57.     Call SetUIElement(2,True)
  58.  end if
  59.  
  60.  if i=0 or IsEmpty(i) then
  61.     Call SetUIElement(3,True)
  62.  end if
  63.  
  64. End Sub
  65.  
  66. Sub Plugin_CheckData(ElementIndex)
  67. End Sub
  68.  
  69. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  70.  if GetUIElement(1)=true then
  71.     i=2     
  72.  end if
  73.  
  74.  if GetUIElement(2)=true then
  75.     i=1    
  76.  end if
  77.  
  78.  if GetUIElement(3)=true then
  79.     i=0    
  80.  end if
  81.  
  82.  Call RegWriteValue(sValPath & sSS,i,2)
  83. End Sub
  84.  
  85. Sub Plugin_Terminate 
  86. End Sub
  87.